home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / cybint3.exe / cybint3.DXR / 00021.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  1.4 KB  |  43 lines
  1. on enterFrame
  2.   global GArray, ContCol, ContLine, Foto1, Foto2, Foto3, Foto4
  3.   set ContCol to 1
  4.   set ContLine to 1
  5. end
  6.  
  7. on exitFrame
  8.   global GArray, ContCol, ContLine
  9.   set the puppet of sprite 1 to 1
  10.   set the puppet of sprite 2 to 1
  11.   set the puppet of sprite 3 to 1
  12.   set the puppet of sprite 4 to 1
  13.   set the puppet of sprite 5 to 1
  14.   set the puppet of sprite 6 to 1
  15.   set the puppet of sprite 7 to 1
  16.   set the puppet of sprite 8 to 1
  17.   set the visible of sprite 1 to 0
  18.   set the visible of sprite 2 to 0
  19.   set the visible of sprite 3 to 0
  20.   set the visible of sprite 4 to 0
  21.   set the visible of sprite 5 to 0
  22.   set the visible of sprite 6 to 0
  23.   set the visible of sprite 7 to 0
  24.   set the visible of sprite 8 to 0
  25.   set Array1 to list(8, 4, 3, 5)
  26.   set Array2 to list(1, 7, 8, 6)
  27.   set Array3 to list(5, 3, 2, 7)
  28.   set Array4 to list(1, 8, 4, 2)
  29.   set Array5 to list(3, 7, 6, 5)
  30.   set Array6 to list(2, 8, 1, 3)
  31.   set Array7 to list(5, 4, 7, 1)
  32.   set Array8 to list(6, 3, 5, 2)
  33.   set Array9 to list(8, 4, 6, 7)
  34.   set Array10 to list(3, 8, 1, 2)
  35.   set Array11 to list(4, 5, 8, 3)
  36.   set Array12 to list(1, 4, 2, 5)
  37.   set Array13 to list(7, 6, 2, 1)
  38.   set Array14 to list(5, 7, 6, 2)
  39.   set Array15 to list(8, 4, 1, 3)
  40.   set Array16 to list(5, 6, 7, 2)
  41.   set GArray to list(Array1, Array2, Array3, Array4, Array5, Array6, Array7, Array8, Array9, Array10, Array11, Array12, Array13, Array14, Array15, Array16)
  42. end
  43.